inherited fmConc: TfmConc
  Left = 122
  Top = 106
  Width = 929
  Height = 755
  Caption = 'AddConc'
  Constraints.MaxHeight = 1598
  Constraints.MaxWidth = 1704
  Constraints.MinHeight = 693
  Constraints.MinWidth = 929
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 701
    Width = 921
  end
  inherited Panel1: TPanel
    Width = 921
    inherited BitBtn1: TBitBtn
      Left = 735
    end
    inherited BitBtn2: TBitBtn
      Left = 823
    end
  end
  object cxGroupBox3: TcxGroupBox [2]
    Left = 0
    Top = 45
    Align = alClient
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.TextColor = clGray
    Style.TextStyle = [fsBold]
    Style.IsFontAssigned = True
    TabOrder = 2
    DesignSize = (
      921
      237)
    Height = 237
    Width = 921
    object dbgConc: TcxGrid
      Left = 2
      Top = 89
      Width = 917
      Height = 144
      Anchors = [akLeft, akTop, akRight, akBottom]
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      LookAndFeel.Kind = lfStandard
      object tvConc: TcxGridDBTableView
        NavigatorButtons.ConfirmDelete = False
        NavigatorButtons.First.Visible = True
        NavigatorButtons.PriorPage.Visible = True
        NavigatorButtons.Prior.Visible = True
        NavigatorButtons.Next.Visible = True
        NavigatorButtons.NextPage.Visible = True
        NavigatorButtons.Last.Visible = True
        NavigatorButtons.Insert.Visible = False
        NavigatorButtons.Append.Visible = False
        NavigatorButtons.Delete.Visible = False
        NavigatorButtons.Edit.Visible = False
        NavigatorButtons.Post.Visible = False
        NavigatorButtons.Cancel.Visible = False
        NavigatorButtons.Refresh.Visible = False
        NavigatorButtons.SaveBookmark.Visible = False
        NavigatorButtons.GotoBookmark.Visible = False
        NavigatorButtons.Filter.Visible = False
        DataController.DataSource = DSAddConc
        DataController.Filter.AutoDataSetFilter = True
        DataController.Summary.DefaultGroupSummaryItems = <>
        DataController.Summary.FooterSummaryItems = <>
        DataController.Summary.SummaryGroups = <>
        OptionsBehavior.CellHints = True
        OptionsBehavior.ImmediateEditor = False
        OptionsBehavior.IncSearch = True
        OptionsCustomize.ColumnFiltering = False
        OptionsCustomize.ColumnGrouping = False
        OptionsCustomize.ColumnSorting = False
        OptionsData.CancelOnExit = False
        OptionsData.Deleting = False
        OptionsData.DeletingConfirmation = False
        OptionsData.Inserting = False
        OptionsView.NavigatorOffset = 10
        OptionsView.CellAutoHeight = True
        OptionsView.CellTextMaxLineCount = 1
        OptionsView.ColumnAutoWidth = True
        OptionsView.GroupByBox = False
        OptionsView.Indicator = True
        OptionsView.ShowColumnFilterButtons = sfbAlways
        Preview.Visible = True
        Styles.IncSearch = DMInv.cxKrasniyText
        Styles.Selection = DMInv.cxJoltiyFon
        Styles.Header = DMInv.cxSiniyText
        object tvConcIDSCHOOL: TcxGridDBColumn
          DataBinding.FieldName = 'IDSCHOOL'
          Visible = False
        end
        object tvConcCNAMESCHOOL: TcxGridDBColumn
          Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
          DataBinding.FieldName = 'CNAMESCHOOL'
          Width = 92
        end
        object tvConcCADRESS: TcxGridDBColumn
          Caption = #1040#1076#1088#1077#1089
          DataBinding.FieldName = 'NEWCADRESS'
          Width = 478
        end
        object tvConcCSTATUS: TcxGridDBColumn
          Caption = #1054#1087#1080#1089#1072#1085#1080#1077
          DataBinding.FieldName = 'CSTATUS'
          Width = 153
        end
      end
      object cxGridLevel14: TcxGridLevel
        GridView = tvConc
      end
    end
    object ToolBar2: TToolBar
      Left = 2
      Top = 57
      Width = 103
      Height = 33
      Align = alNone
      BorderWidth = 2
      ButtonHeight = 23
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = DMInv.ilActive
      TabOrder = 1
      Transparent = False
      object ToolButton2: TToolButton
        Left = 0
        Top = 2
        Hint = #1044#1086#1073#1072#1074#1080#1090#1100
        Caption = #1044#1086#1073#1072#1074#1080#1090#1100
        ImageIndex = 30
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton2Click
      end
      object ToolButton6: TToolButton
        Left = 23
        Top = 2
        Hint = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100
        Caption = #1050#1086#1087#1080#1088#1086#1074#1072#1090#1100
        ImageIndex = 32
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton6Click
      end
      object ToolButton3: TToolButton
        Left = 46
        Top = 2
        Hint = #1055#1086#1080#1089#1082' '#1076#1091#1073#1083#1080#1088#1091#1102#1097#1080#1093' '#1079#1072#1087#1080#1089#1077#1081
        Caption = #1055#1086#1080#1089#1082' '#1076#1091#1073#1083#1080#1088#1091#1102#1097#1080#1093' '#1079#1072#1087#1080#1089#1077#1081
        Enabled = False
        ImageIndex = 9
        ParentShowHint = False
        ShowHint = True
        Visible = False
        OnClick = ToolButton3Click
      end
      object ToolButton8: TToolButton
        Left = 69
        Top = 2
        Hint = #1059#1076#1072#1083#1080#1090#1100
        Caption = #1059#1076#1072#1083#1080#1090#1100
        ImageIndex = 29
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolButton8Click
      end
    end
    object Panel2: TPanel
      Left = 3
      Top = 10
      Width = 615
      Height = 49
      BevelOuter = bvNone
      TabOrder = 2
      object Label11: TLabel
        Left = 4
        Top = 4
        Width = 31
        Height = 13
        Caption = #1043#1086#1088#1086#1076
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 184
        Top = 4
        Width = 31
        Height = 13
        Caption = #1059#1083#1080#1094#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 436
        Top = 4
        Width = 39
        Height = 13
        Caption = #1076#1086#1084'.'#1082#1074'.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object cxLookupComboBox1: TcxLookupComboBox
        Left = 1
        Top = 22
        ParentFont = False
        Properties.DropDownRows = 15
        Properties.KeyFieldNames = 'KID'
        Properties.ListColumns = <
          item
            Caption = #1043#1086#1088#1086#1076
            FieldName = 'NAME'
          end>
        Properties.ListSource = DataSource1
        Properties.OnCloseUp = cxLookupComboBox1PropertiesCloseUp
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 0
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 176
      end
      object cxLookupComboBox2: TcxLookupComboBox
        Left = 182
        Top = 22
        ParentFont = False
        Properties.DropDownRows = 15
        Properties.KeyFieldNames = 'KSID'
        Properties.ListColumns = <
          item
            Caption = #1059#1083#1080#1094#1072
            FieldName = 'NAME'
          end>
        Properties.ListSource = DataSource2
        Properties.OnCloseUp = cxLookupComboBox2PropertiesCloseUp
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 1
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 241
      end
      object eFindText: TcxTextEdit
        Left = 432
        Top = 21
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -16
        Style.Font.Name = 'MS Sans Serif'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 2
        Width = 113
      end
      object ToolBar1: TToolBar
        Left = 576
        Top = 15
        Width = 41
        Height = 36
        Align = alCustom
        AutoSize = True
        BorderWidth = 2
        ButtonHeight = 25
        ButtonWidth = 25
        EdgeInner = esNone
        EdgeOuter = esNone
        Images = DMInv.ilActive
        TabOrder = 3
        Transparent = False
        object ToolButton1: TToolButton
          Left = 0
          Top = 2
          Hint = #1055#1086#1080#1089#1082' '#1087#1086' '#1072#1076#1088#1077#1089#1091
          Caption = #1055#1086#1080#1089#1082' '#1087#1086' '#1072#1076#1088#1077#1089#1091
          ImageIndex = 9
          ParentShowHint = False
          ShowHint = True
          Visible = False
          OnClick = ToolButton1Click
        end
      end
      object cxButton1: TcxButton
        Left = 553
        Top = 21
        Width = 25
        Height = 25
        Hint = #1057#1092#1086#1088#1084#1080#1088#1086#1074#1072#1090#1100' '#1080' '#1079#1072#1084#1077#1085#1080#1090#1100' '#1072#1076#1088#1077#1089
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnClick = bAdressClick
        Glyph.Data = {
          BE060000424DBE06000000000000360400002800000024000000120000000100
          0800000000008802000000000000000000000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
          A400000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
          0303030303030303030303030303030303030303030303030303030303030303
          03030303030303030303030303030303030303030303FF030303030303030303
          03030303030303040403030303030303030303030303030303F8F8FF03030303
          03030303030303030303040202040303030303030303030303030303F80303F8
          FF030303030303030303030303040202020204030303030303030303030303F8
          03030303F8FF0303030303030303030304020202020202040303030303030303
          0303F8030303030303F8FF030303030303030304020202FA0202020204030303
          0303030303F8FF0303F8FF030303F8FF03030303030303020202FA03FA020202
          040303030303030303F8FF03F803F8FF0303F8FF03030303030303FA02FA0303
          03FA0202020403030303030303F8FFF8030303F8FF0303F8FF03030303030303
          FA0303030303FA0202020403030303030303F80303030303F8FF0303F8FF0303
          0303030303030303030303FA0202020403030303030303030303030303F8FF03
          03F8FF03030303030303030303030303FA020202040303030303030303030303
          0303F8FF0303F8FF03030303030303030303030303FA02020204030303030303
          03030303030303F8FF0303F8FF03030303030303030303030303FA0202020403
          030303030303030303030303F8FF0303F8FF03030303030303030303030303FA
          0202040303030303030303030303030303F8FF03F8FF03030303030303030303
          03030303FA0202030303030303030303030303030303F8FFF803030303030303
          030303030303030303FA0303030303030303030303030303030303F803030303
          0303030303030303030303030303030303030303030303030303030303030303
          0303}
        NumGlyphs = 2
      end
    end
  end
  object Panel5: TPanel [3]
    Left = 0
    Top = 282
    Width = 921
    Height = 197
    Align = alBottom
    Caption = 'Panel3'
    TabOrder = 3
    object Panel3: TPanel
      Left = 505
      Top = 1
      Width = 415
      Height = 195
      Align = alClient
      TabOrder = 0
      DesignSize = (
        415
        195)
      object Label9: TLabel
        Left = 11
        Top = 72
        Width = 163
        Height = 13
        Caption = #1055#1088#1072#1074#1086' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1080' '#1085#1072' '#1079#1076#1072#1085#1080#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 11
        Top = 120
        Width = 62
        Height = 13
        Caption = #1059#1095#1088#1077#1076#1080#1090#1077#1083#1100
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object cxDBTextEdit29: TcxDBTextEdit
        Left = 8
        Top = 87
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataBinding.DataField = 'COWNERSHIP'
        DataBinding.DataSource = DSAddConc
        TabOrder = 0
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 401
      end
      object cxDBTextEdit30: TcxDBTextEdit
        Left = 8
        Top = 135
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataBinding.DataField = 'CFOUNDER'
        DataBinding.DataSource = DSAddConc
        TabOrder = 1
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 401
      end
      object GroupBox5: TGroupBox
        Left = 1
        Top = 1
        Width = 413
        Height = 66
        Align = alTop
        Caption = #1055#1083#1086#1097#1072#1076#1100
        TabOrder = 2
        object Label8: TLabel
          Left = 11
          Top = 20
          Width = 80
          Height = 13
          Caption = #1054#1073#1097'.'#1087#1083'.'#1079#1077#1084'.'#1091#1095'.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 187
          Top = 20
          Width = 79
          Height = 13
          Caption = #1054#1073#1097'.'#1087#1083'.'#1079#1076#1072#1085#1080#1103
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object cxDBCurrencyEdit3: TcxDBCurrencyEdit
          Left = 8
          Top = 36
          DataBinding.DataField = 'TLAREA'
          DataBinding.DataSource = DSAddConc
          Properties.DecimalPlaces = 2
          Properties.DisplayFormat = ',0.00 '#1082#1074#39'.'#39#1084#39'.'#39';-,0.00 '#1082#1074#39'.'#39#1084#39#39'.'#39
          TabOrder = 0
          Width = 169
        end
        object cxDBCurrencyEdit4: TcxDBCurrencyEdit
          Left = 184
          Top = 36
          DataBinding.DataField = 'TBAREA'
          DataBinding.DataSource = DSAddConc
          Properties.DecimalPlaces = 2
          Properties.DisplayFormat = ',0.00 '#1082#1074#39'.'#39#1084#39'.'#39';-,0.00 '#1082#1074#39'.'#39#1084#39#39'.'#39
          TabOrder = 1
          Width = 169
        end
      end
    end
    object Panel9: TPanel
      Left = 1
      Top = 1
      Width = 504
      Height = 195
      Align = alLeft
      TabOrder = 1
      DesignSize = (
        504
        195)
      object Label15: TLabel
        Left = 11
        Top = 6
        Width = 96
        Height = 13
        Caption = #1058#1080#1087' '#1089#1086#1073#1089#1090#1074#1077#1085#1085#1086#1089#1090#1080
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 11
        Top = 54
        Width = 73
        Height = 13
        Caption = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label19: TLabel
        Left = 235
        Top = 6
        Width = 49
        Height = 13
        Caption = #1058#1080#1087' '#1091#1089#1083#1091#1075
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label20: TLabel
        Left = 11
        Top = 80
        Width = 31
        Height = 13
        Caption = #1040#1076#1088#1077#1089
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 11
        Top = 102
        Width = 44
        Height = 13
        Caption = #1058#1077#1083#1077#1092#1086#1085
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 11
        Top = 127
        Width = 25
        Height = 13
        Caption = #1057#1072#1081#1090
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label39: TLabel
        Left = 323
        Top = 127
        Width = 71
        Height = 13
        Caption = #1042#1088#1077#1084#1103' '#1088#1072#1073#1086#1090#1099
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label18: TLabel
        Left = 11
        Top = 174
        Width = 49
        Height = 13
        Caption = #1054#1087#1080#1089#1072#1085#1080#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label38: TLabel
        Left = 11
        Top = 151
        Width = 99
        Height = 13
        Caption = #1060#1048#1054' '#1056#1091#1082#1086#1074#1086#1076#1080#1090#1077#1083#1103
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object cxDBTextEdit4: TcxDBTextEdit
        Left = 88
        Top = 48
        DataBinding.DataField = 'CNAMESCHOOL'
        DataBinding.DataSource = DSAddConc
        Style.TextColor = clBlack
        TabOrder = 0
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 409
      end
      object cxDBLookupComboBox6: TcxDBLookupComboBox
        Left = 11
        Top = 24
        DataBinding.DataField = 'IDSTATUS'
        DataBinding.DataSource = DSAddConc
        Properties.KeyFieldNames = 'IDSTATUS'
        Properties.ListColumns = <
          item
            FieldName = 'CSTATUS'
          end>
        Properties.ListOptions.ShowHeader = False
        Properties.ListSource = DSStatus
        Style.TextColor = clBlack
        TabOrder = 1
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 222
      end
      object cxDBCheckComboBox2: TcxDBCheckComboBox
        Left = 234
        Top = 23
        DataBinding.DataField = 'IDTYPE'
        DataBinding.DataSource = DSAddConc
        Properties.EditValueFormat = cvfStatesString
        Properties.Items = <
          item
            Description = #1044'/'#1057
          end
          item
            Description = #1053#1064
          end
          item
            Description = #1057#1088'.'#1064
          end
          item
            Description = #1057#1090'.'#1064
          end>
        Properties.OnClickCheck = cxDBCheckComboBox2PropertiesClickCheck
        Style.TextColor = clBlack
        TabOrder = 2
        Text = #1053#1080#1095#1090#1086' '#1085#1077' '#1074#1099#1073#1088#1072#1085#1086
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 265
      end
      object cxDBTextEdit6: TcxDBTextEdit
        Left = 88
        Top = 72
        DataBinding.DataField = 'newCADRESS'
        DataBinding.DataSource = DSAddConc
        Properties.ReadOnly = True
        Style.TextColor = clBlack
        TabOrder = 3
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 409
      end
      object cxDBTextEdit25: TcxDBTextEdit
        Left = 87
        Top = 96
        DataBinding.DataField = 'CCONTACTINFO'
        DataBinding.DataSource = DSAddConc
        TabOrder = 4
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 410
      end
      object cxDBTextEdit32: TcxDBTextEdit
        Left = 399
        Top = 120
        DataBinding.DataField = 'CTIMEWORK'
        DataBinding.DataSource = DSAddConc
        TabOrder = 5
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 98
      end
      object cxDBTextEdit5: TcxDBTextEdit
        Left = 88
        Top = 168
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataBinding.DataField = 'CSTATUS'
        DataBinding.DataSource = DSAddConc
        Style.TextColor = clBlack
        TabOrder = 6
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 409
      end
      object cxDBTextEdit31: TcxDBTextEdit
        Left = 120
        Top = 144
        Anchors = [akLeft, akTop, akRight, akBottom]
        DataBinding.DataField = 'CCHIEF'
        DataBinding.DataSource = DSAddConc
        TabOrder = 7
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 377
      end
      object cxDBHyperLinkEdit1: TcxDBHyperLinkEdit
        Left = 88
        Top = 120
        DataBinding.DataField = 'CINET'
        DataBinding.DataSource = DSAddConc
        TabOrder = 8
        Width = 225
      end
    end
  end
  object Panel7: TPanel [4]
    Left = 0
    Top = 479
    Width = 921
    Height = 157
    Align = alBottom
    TabOrder = 4
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 272
      Height = 155
      Align = alLeft
      TabOrder = 0
      object Label40: TLabel
        Left = 3
        Top = 16
        Width = 94
        Height = 13
        Caption = #1057' '#1082#1072#1082#1086#1075#1086' '#1074#1086#1079#1088#1072#1089#1090#1072
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label41: TLabel
        Left = 3
        Top = 39
        Width = 116
        Height = 13
        Caption = #1050#1086#1083'-'#1074#1086' '#1076#1077#1090#1077#1081' '#1074' '#1075#1088#1091#1087#1087#1077
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label42: TLabel
        Left = 3
        Top = 62
        Width = 67
        Height = 13
        Caption = #1050#1086#1083'-'#1074#1086' '#1075#1088#1091#1087#1087
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label43: TLabel
        Left = 3
        Top = 85
        Width = 108
        Height = 13
        Caption = #1050#1086#1083'-'#1074#1086' '#1076#1077#1090#1077#1081' ('#1042#1089#1077#1075#1086')'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label44: TLabel
        Left = 3
        Top = 108
        Width = 61
        Height = 13
        Caption = #1050#1086#1083'-'#1074#1086' '#1084#1077#1089#1090
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label46: TLabel
        Left = 3
        Top = 132
        Width = 87
        Height = 13
        Caption = #1057#1090#1086#1080#1084#1086#1089#1090#1100' '#1074' '#1084#1077#1089'.'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGray
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object cxDBTextEdit33: TcxDBTextEdit
        Left = 128
        Top = 8
        DataBinding.DataField = 'BEGINAGE'
        DataBinding.DataSource = DSAddConc
        TabOrder = 0
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 129
      end
      object cxDBTextEdit34: TcxDBTextEdit
        Left = 128
        Top = 31
        DataBinding.DataField = 'QDETGR'
        DataBinding.DataSource = DSAddConc
        TabOrder = 1
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 129
      end
      object cxDBTextEdit35: TcxDBTextEdit
        Left = 128
        Top = 54
        DataBinding.DataField = 'QGR'
        DataBinding.DataSource = DSAddConc
        TabOrder = 2
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 129
      end
      object cxDBTextEdit36: TcxDBTextEdit
        Left = 128
        Top = 77
        DataBinding.DataField = 'QDET'
        DataBinding.DataSource = DSAddConc
        TabOrder = 3
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 129
      end
      object cxDBTextEdit37: TcxDBTextEdit
        Left = 128
        Top = 100
        DataBinding.DataField = 'QSEAT'
        DataBinding.DataSource = DSAddConc
        TabOrder = 4
        OnMouseDown = cxLookupComboBox1MouseDown
        Width = 129
      end
      object cxDBCurrencyEdit2: TcxDBCurrencyEdit
        Left = 127
        Top = 124
        DataBinding.DataField = 'QMAX'
        DataBinding.DataSource = DSAddConc
        Properties.DecimalPlaces = 0
        Properties.DisplayFormat = ',0'#1088#39'.'#39';-,0'#1088#39'.'#39
        TabOrder = 5
        Width = 130
      end
    end
    object Panel8: TPanel
      Left = 273
      Top = 1
      Width = 232
      Height = 155
      Align = alLeft
      TabOrder = 1
      object GroupBox1: TGroupBox
        Left = 1
        Top = 1
        Width = 230
        Height = 153
        Align = alClient
        Caption = #1042#1079#1085#1086#1089#1099
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label4: TLabel
          Left = 10
          Top = 40
          Width = 105
          Height = 13
          Caption = #1042#1089#1090#1091#1087#1080#1090#1077#1083#1100#1085#1099#1081' '#1074#1085#1086#1089
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label5: TLabel
          Left = 10
          Top = 60
          Width = 55
          Height = 13
          Caption = #1058#1080#1087' '#1074#1079#1085#1086#1089#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label7: TLabel
          Left = 10
          Top = 83
          Width = 38
          Height = 13
          Caption = #1057#1082#1080#1076#1082#1072
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object Label1: TLabel
          Left = 10
          Top = 20
          Width = 105
          Height = 13
          Caption = #1052#1080#1085'. '#1087#1077#1088#1080#1086#1076' '#1086#1087#1083#1072#1090#1099
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object cxDBMemo1: TcxDBMemo
          Left = 10
          Top = 98
          DataBinding.DataField = 'CTCDISCOUNT'
          DataBinding.DataSource = DSAddConc
          TabOrder = 0
          OnMouseDown = cxLookupComboBox1MouseDown
          Height = 46
          Width = 215
        end
        object cxDBLookupComboBox2: TcxDBLookupComboBox
          Left = 119
          Top = 52
          DataBinding.DataField = 'IDTYPECONTRIB'
          DataBinding.DataSource = DSAddConc
          Properties.KeyFieldNames = 'IDSTATUS'
          Properties.ListColumns = <
            item
              FieldName = 'CSTATUS'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = DSTypeContrib
          Style.TextColor = clBlack
          TabOrder = 1
          OnMouseDown = cxLookupComboBox1MouseDown
          Width = 106
        end
        object cxDBLookupComboBox1: TcxDBLookupComboBox
          Left = 119
          Top = 11
          DataBinding.DataField = 'MINPERIOD'
          DataBinding.DataSource = DSAddConc
          Properties.KeyFieldNames = 'IDSTATUS'
          Properties.ListColumns = <
            item
              FieldName = 'CSTATUS'
            end>
          Properties.ListOptions.ShowHeader = False
          Properties.ListSource = DSTypePeriod
          Style.TextColor = clBlack
          TabOrder = 2
          OnMouseDown = cxLookupComboBox1MouseDown
          Width = 105
        end
        object cxDBCurrencyEdit1: TcxDBCurrencyEdit
          Left = 119
          Top = 32
          DataBinding.DataField = 'D_CONTRIB'
          DataBinding.DataSource = DSAddConc
          Properties.DecimalPlaces = 0
          Properties.DisplayFormat = ',0'#1088#39'.'#39';-,0'#1088#39'.'#39
          TabOrder = 3
          Width = 105
        end
      end
    end
    object Panel10: TPanel
      Left = 505
      Top = 1
      Width = 415
      Height = 155
      Align = alClient
      TabOrder = 2
      object GroupBox3: TGroupBox
        Left = 1
        Top = 1
        Width = 413
        Height = 48
        Align = alTop
        Caption = #1042#1086#1079#1074#1088#1072#1090#1099
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        DesignSize = (
          413
          48)
        object cxDBMemo3: TcxDBMemo
          Left = 8
          Top = 16
          Anchors = [akLeft, akTop, akRight, akBottom]
          DataBinding.DataField = 'CTCRETURN'
          DataBinding.DataSource = DSAddConc
          TabOrder = 0
          OnMouseDown = cxLookupComboBox1MouseDown
          Height = 25
          Width = 400
        end
      end
      object GroupBox2: TGroupBox
        Left = 1
        Top = 49
        Width = 413
        Height = 105
        Align = alClient
        Caption = #1044#1086#1087'. '#1091#1089#1083#1091#1075#1080
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        object Label6: TLabel
          Left = 11
          Top = 75
          Width = 25
          Height = 13
          Caption = #1051#1077#1090#1086
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clGray
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ParentFont = False
        end
        object cxDBCheckComboBox1: TcxDBCheckComboBox
          Left = 40
          Top = 69
          DataBinding.DataField = 'SUMMER'
          DataBinding.DataSource = DSAddConc
          Properties.EditValueFormat = cvfStatesString
          Properties.Items = <
            item
              Description = #1048#1102#1085#1100
            end
            item
              Description = #1048#1102#1083#1100
            end
            item
              Description = #1040#1074#1075#1091#1089#1090
            end>
          Style.TextColor = clBlack
          TabOrder = 0
          Text = #1053#1080#1095#1090#1086' '#1085#1077' '#1074#1099#1073#1088#1072#1085#1086
          Width = 153
        end
        object cxDBCheckBox1: TcxDBCheckBox
          Left = 8
          Top = 16
          Caption = #1055#1072#1085#1089#1080#1086#1085
          DataBinding.DataField = 'PANSION'
          DataBinding.DataSource = DSAddConc
          Properties.NullStyle = nssUnchecked
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          TabOrder = 1
          Width = 105
        end
        object cxDBCheckBox2: TcxDBCheckBox
          Left = 8
          Top = 32
          Caption = #1059#1076#1083#1080#1085#1077#1085#1080#1077' '#1076#1085#1103
          DataBinding.DataField = 'LONGDAY'
          DataBinding.DataSource = DSAddConc
          Properties.NullStyle = nssUnchecked
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          TabOrder = 2
          Width = 105
        end
        object cxDBCheckBox3: TcxDBCheckBox
          Left = 8
          Top = 48
          Caption = #1042#1099#1093'. '#1076#1077#1085#1100
          DataBinding.DataField = 'OFFDAY'
          DataBinding.DataSource = DSAddConc
          Properties.NullStyle = nssUnchecked
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          TabOrder = 3
          Width = 105
        end
        object cxDBCheckBox4: TcxDBCheckBox
          Left = 112
          Top = 16
          Caption = #1053#1086#1095#1100
          DataBinding.DataField = 'NIGHT'
          DataBinding.DataSource = DSAddConc
          Properties.NullStyle = nssUnchecked
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          TabOrder = 4
          Width = 105
        end
        object cxDBCheckBox5: TcxDBCheckBox
          Left = 112
          Top = 32
          Caption = #1057#1087#1086#1088#1090#1079#1072#1083
          DataBinding.DataField = 'SPORT'
          DataBinding.DataSource = DSAddConc
          Properties.NullStyle = nssUnchecked
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          TabOrder = 5
          Width = 105
        end
        object cxDBCheckBox6: TcxDBCheckBox
          Left = 112
          Top = 48
          Caption = #1041#1072#1089#1089#1077#1081#1085
          DataBinding.DataField = 'POOL'
          DataBinding.DataSource = DSAddConc
          Properties.NullStyle = nssUnchecked
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          TabOrder = 6
          Width = 105
        end
        object cxDBCheckBox7: TcxDBCheckBox
          Left = 280
          Top = 16
          Caption = #1044#1086#1089#1090#1072#1074#1082#1072
          DataBinding.DataField = 'DELIVERY'
          DataBinding.DataSource = DSAddConc
          Properties.NullStyle = nssUnchecked
          Properties.ValueChecked = 1
          Properties.ValueUnchecked = 0
          TabOrder = 7
          Width = 105
        end
      end
    end
  end
  object Panel6: TPanel [5]
    Left = 0
    Top = 636
    Width = 921
    Height = 65
    Align = alBottom
    Caption = 'Panel6'
    TabOrder = 5
    object GroupBox4: TGroupBox
      Left = 1
      Top = 1
      Width = 919
      Height = 63
      Align = alClient
      Caption = #1050#1086#1084#1077#1085#1090#1072#1088#1080#1081
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object cxDBMemo2: TcxDBMemo
        Left = 2
        Top = 15
        Align = alClient
        DataBinding.DataField = 'CTCALL'
        DataBinding.DataSource = DSAddConc
        TabOrder = 0
        OnMouseDown = cxLookupComboBox1MouseDown
        Height = 46
        Width = 915
      end
    end
  end
  object memAddConc: TdxMemData
    Indexes = <>
    SortOptions = []
    Left = 518
    Top = 112
  end
  object DSAddConc: TDataSource
    DataSet = memAddConc
    Left = 384
    Top = 136
  end
  object qAddConc: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'Select * from (Select ts.*,tst.cstatus as cstatusType,'
      '  tq.MINPERIOD,tq.D_CONTRIB,tq.IDTYPECONTRIB,'
      
        '  tq.BEGINAGE,tv.cstatus as ctypecontrib, mp.cstatus as cminperi' +
        'od,'
      '  tcAdr.ccomment as ctcAdr,tcContInf.ccomment as ctcContInf,'
      
        '  tcReturn.ccomment as ctcReturn,tcContrib.ccomment as ctcContri' +
        'b,                                 '
      
        '  tdiscount.ccomment as ctcDiscount,tcAll.ccomment as ctcAll, '#39'0' +
        #39' as tempdel,'
      '  td.IDTYPE,td.QDETGR,td.QGR,td.QDET,td.QSEAT,td.QMAX,'
      
        '  tdop.PANSION,tdop.LONGDAY,tdop.OFFDAY,tdop.NIGHT,tdop.DELIVERY' +
        ','
      '  tdop.SPORT,tdop.POOL,tdop.SUMMER,'
      '    case when KLADRADRESS is null then ts.CADRESS'
      '         else KLADRADRESS'
      '    end  as newCADRESS,'
      '    case when tstadr.cstatus is null then tg.cstatus'
      '       else tstadr.cstatus'
      '   end as newcOkrug,'
      '    ts.idgeo as newidgeo'
      
        'from tschool ts                                                 ' +
        '                                   '
      
        '  left join tdetailinfo td on td.idschool=ts.idschool           ' +
        '                                   '
      
        '  left join tdopuslug tdop on tdop.idschool=ts.idschool         ' +
        '                                   '
      
        '  left join tstatus tst on tst.idstatus=ts.idstatus             ' +
        '                                   '
      
        '  left join (Select * from tstatus where parid=2) tg on tg.idsta' +
        'tus=ts.idgeo'
      
        '  left join tqualityuslug tq on tq.idschool=ts.idschool         ' +
        '                                   '
      
        '  left join (Select * from tstatus where parid=11) tv on tv.idst' +
        'atus=tq.idtypecontrib              '
      
        '  left join (Select * from tcomment where idtype=19) tcAdr on tc' +
        'Adr.idschool=ts.idschool'
      
        '  left join (Select * from tcomment where idtype=20) tcContInf o' +
        'n tcContInf.idschool=ts.idschool'
      
        '  left join (Select * from tcomment where idtype=23) tcReturn on' +
        ' tcReturn.idschool=ts.idschool     '
      
        '  left join (Select * from tcomment where idtype=24) tcContrib o' +
        'n tcContrib.idschool=ts.idschool   '
      
        '  left join (Select * from tstatus where parid=26) mp on mp.idst' +
        'atus=tq.minperiod                  '
      
        '  left join (Select * from tcomment where idtype=33) tdiscount o' +
        'n tdiscount.idschool=ts.idschool   '
      
        '  left join (Select * from tcomment where idtype=18) tcAll on tc' +
        'All.idschool=ts.idschool'
      
        '  LEFT  JOIN tstatus tstadr on tstadr.idstatus=ts.KLADROKRUG    ' +
        ')'
      'where idschool=:idschool')
    GeneratorField.Field = 'TFID'
    Left = 416
    Top = 136
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idschool'
        ParamType = ptUnknown
      end>
    object qAddConcIDSCHOOL: TIntegerField
      FieldName = 'IDSCHOOL'
      Origin = '"TSCHOOL"."IDSCHOOL"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qAddConcCNAMESCHOOL: TIBStringField
      FieldName = 'CNAMESCHOOL'
      Origin = '"TSCHOOL"."CNAMESCHOOL"'
      Size = 80
    end
    object qAddConcCSTATUS: TIBStringField
      FieldName = 'CSTATUS'
      Origin = '"TSCHOOL"."CSTATUS"'
      Size = 255
    end
    object qAddConcIDSTATUS: TIntegerField
      FieldName = 'IDSTATUS'
      Origin = '"TSCHOOL"."IDSTATUS"'
    end
    object qAddConcIDGEO: TIntegerField
      FieldName = 'IDGEO'
      Origin = '"TSCHOOL"."IDGEO"'
    end
    object qAddConcCGEOCODE: TIBStringField
      FieldName = 'CGEOCODE'
      Origin = '"TSCHOOL"."CGEOCODE"'
      Size = 40
    end
    object qAddConcCADRESS: TIBStringField
      FieldName = 'CADRESS'
      Origin = '"TSCHOOL"."CADRESS"'
      Size = 255
    end
    object qAddConcCCONTACTINFO: TIBStringField
      FieldName = 'CCONTACTINFO'
      Origin = '"TSCHOOL"."CCONTACTINFO"'
      Size = 255
    end
    object qAddConcCINET: TIBStringField
      FieldName = 'CINET'
      Origin = '"TSCHOOL"."CINET"'
      Size = 80
    end
    object qAddConcCTIMEWORK: TIBStringField
      FieldName = 'CTIMEWORK'
      Origin = '"TSCHOOL"."CTIMEWORK"'
      Size = 40
    end
    object qAddConcCFOUNDER: TIBStringField
      FieldName = 'CFOUNDER'
      Origin = '"TSCHOOL"."CFOUNDER"'
      Size = 255
    end
    object qAddConcCOWNERSHIP: TIBStringField
      FieldName = 'COWNERSHIP'
      Origin = '"TSCHOOL"."COWNERSHIP"'
      Size = 255
    end
    object qAddConcCCHIEF: TIBStringField
      FieldName = 'CCHIEF'
      Origin = '"TSCHOOL"."CCHIEF"'
      Size = 255
    end
    object qAddConcTLAREA: TIBBCDField
      FieldName = 'TLAREA'
      Origin = '"TSCHOOL"."TLAREA"'
      Precision = 18
      Size = 2
    end
    object qAddConcTBAREA: TIBBCDField
      FieldName = 'TBAREA'
      Origin = '"TSCHOOL"."TBAREA"'
      Precision = 18
      Size = 2
    end
    object qAddConcKLADRADRESS: TIBStringField
      FieldName = 'KLADRADRESS'
      Origin = '"TSCHOOL"."KLADRADRESS"'
      Size = 255
    end
    object qAddConcKLADROKRUG: TIntegerField
      FieldName = 'KLADROKRUG'
      Origin = '"TSCHOOL"."KLADROKRUG"'
    end
    object qAddConcCSTATUSTYPE: TIBStringField
      FieldName = 'CSTATUSTYPE'
      Origin = '"TSTATUS"."CSTATUS"'
      Size = 40
    end
    object qAddConcMINPERIOD: TIntegerField
      FieldName = 'MINPERIOD'
      Origin = '"TQUALITYUSLUG"."MINPERIOD"'
    end
    object qAddConcD_CONTRIB: TIBBCDField
      FieldName = 'D_CONTRIB'
      Origin = '"TQUALITYUSLUG"."D_CONTRIB"'
      Precision = 18
      Size = 2
    end
    object qAddConcIDTYPECONTRIB: TIntegerField
      FieldName = 'IDTYPECONTRIB'
      Origin = '"TQUALITYUSLUG"."IDTYPECONTRIB"'
    end
    object qAddConcBEGINAGE: TIBStringField
      FieldName = 'BEGINAGE'
      Origin = '"TQUALITYUSLUG"."BEGINAGE"'
      Size = 5
    end
    object qAddConcCTYPECONTRIB: TIBStringField
      FieldName = 'CTYPECONTRIB'
      ProviderFlags = []
      Size = 40
    end
    object qAddConcCMINPERIOD: TIBStringField
      FieldName = 'CMINPERIOD'
      ProviderFlags = []
      Size = 40
    end
    object qAddConcCTCADR: TIBStringField
      FieldName = 'CTCADR'
      ProviderFlags = []
      Size = 255
    end
    object qAddConcCTCCONTINF: TIBStringField
      FieldName = 'CTCCONTINF'
      ProviderFlags = []
      Size = 255
    end
    object qAddConcCTCRETURN: TIBStringField
      FieldName = 'CTCRETURN'
      ProviderFlags = []
      Size = 255
    end
    object qAddConcCTCCONTRIB: TIBStringField
      FieldName = 'CTCCONTRIB'
      ProviderFlags = []
      Size = 255
    end
    object qAddConcCTCDISCOUNT: TIBStringField
      FieldName = 'CTCDISCOUNT'
      ProviderFlags = []
      Size = 255
    end
    object qAddConcCTCALL: TIBStringField
      FieldName = 'CTCALL'
      ProviderFlags = []
      Size = 255
    end
    object qAddConcTEMPDEL: TIBStringField
      FieldName = 'TEMPDEL'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
    object qAddConcIDTYPE: TIBStringField
      FieldName = 'IDTYPE'
      Origin = '"TDETAILINFO"."IDTYPE"'
      Size = 5
    end
    object qAddConcQDETGR: TIntegerField
      FieldName = 'QDETGR'
      Origin = '"TDETAILINFO"."QDETGR"'
    end
    object qAddConcQGR: TIntegerField
      FieldName = 'QGR'
      Origin = '"TDETAILINFO"."QGR"'
    end
    object qAddConcQDET: TIntegerField
      FieldName = 'QDET'
      Origin = '"TDETAILINFO"."QDET"'
    end
    object qAddConcQSEAT: TIntegerField
      FieldName = 'QSEAT'
      Origin = '"TDETAILINFO"."QSEAT"'
    end
    object qAddConcQMAX: TIBBCDField
      FieldName = 'QMAX'
      Origin = '"TDETAILINFO"."QMAX"'
      Precision = 18
      Size = 2
    end
    object qAddConcPANSION: TIntegerField
      FieldName = 'PANSION'
      Origin = '"TDOPUSLUG"."PANSION"'
    end
    object qAddConcLONGDAY: TIntegerField
      FieldName = 'LONGDAY'
      Origin = '"TDOPUSLUG"."LONGDAY"'
    end
    object qAddConcOFFDAY: TIntegerField
      FieldName = 'OFFDAY'
      Origin = '"TDOPUSLUG"."OFFDAY"'
    end
    object qAddConcNIGHT: TIntegerField
      FieldName = 'NIGHT'
      Origin = '"TDOPUSLUG"."NIGHT"'
    end
    object qAddConcDELIVERY: TIntegerField
      FieldName = 'DELIVERY'
      Origin = '"TDOPUSLUG"."DELIVERY"'
    end
    object qAddConcSPORT: TIntegerField
      FieldName = 'SPORT'
      Origin = '"TDOPUSLUG"."SPORT"'
    end
    object qAddConcPOOL: TIntegerField
      FieldName = 'POOL'
      Origin = '"TDOPUSLUG"."POOL"'
    end
    object qAddConcSUMMER: TIBStringField
      FieldName = 'SUMMER'
      Origin = '"TDOPUSLUG"."SUMMER"'
      Size = 5
    end
    object qAddConcNEWCADRESS: TIBStringField
      FieldName = 'NEWCADRESS'
      ProviderFlags = []
      Size = 255
    end
    object qAddConcNEWCOKRUG: TIBStringField
      FieldName = 'NEWCOKRUG'
      ProviderFlags = []
      Size = 40
    end
    object qAddConcNEWIDGEO: TIntegerField
      FieldName = 'NEWIDGEO'
      Origin = '"TSCHOOL"."IDGEO"'
    end
  end
  object IBAddConc: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'UPDATE OR INSERT INTO tschool (IDSCHOOL, CNAMESCHOOL, CSTATUS, I' +
        'DSTATUS, IDGEO, CGEOCODE, CADRESS,'
      'CCONTACTINFO, CINET, CTIMEWORK, CFOUNDER, COWNERSHIP, CCHIEF)'
      
        'VALUES (:IDSCHOOL, :CNAMESCHOOL, :CSTATUS, :IDSTATUS, :IDGEO, :C' +
        'GEOCODE, :CADRESS,'
      
        ':CCONTACTINFO, :CINET, :CTIMEWORK, :CFOUNDER, :COWNERSHIP, :CCHI' +
        'EF)')
    GeneratorField.Field = 'SDID'
    Left = 549
    Top = 112
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDSCHOOL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CNAMESCHOOL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CSTATUS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDSTATUS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDGEO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CGEOCODE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CADRESS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CCONTACTINFO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CINET'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CTIMEWORK'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CFOUNDER'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'COWNERSHIP'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CCHIEF'
        ParamType = ptUnknown
      end>
  end
  object DSStatus: TDataSource
    DataSet = qStatus
    Left = 496
    Top = 184
  end
  object qStatus: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select * from TSTATUS where parid=14')
    GeneratorField.Field = 'TFID'
    Left = 528
    Top = 184
    object IntegerField1: TIntegerField
      FieldName = 'IDSTATUS'
      Origin = '"TSTATUS"."IDSTATUS"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IntegerField2: TIntegerField
      FieldName = 'PARID'
      Origin = '"TSTATUS"."PARID"'
      Required = True
    end
    object IBStringField1: TIBStringField
      FieldName = 'CSTATUS'
      Origin = '"TSTATUS"."CSTATUS"'
      Size = 40
    end
  end
  object IBAddDetailInfo: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'UPDATE OR INSERT INTO TDETAILINFO (IDSCHOOL,IDTYPE,QDETGR,QGR,QD' +
        'ET,QSEAT,QMIN,QMAX)'
      'VALUES (:IDSCHOOL,:IDTYPE,:QDETGR,:QGR,:QDET,:QSEAT,:QMIN,:QMAX)'
      'matching (IDSCHOOL)')
    GeneratorField.Field = 'SDID'
    Left = 661
    Top = 176
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDSCHOOL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDTYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'QDETGR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'QGR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'QDET'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'QSEAT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'QMIN'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'QMAX'
        ParamType = ptUnknown
      end>
  end
  object IBAddComments: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'UPDATE OR INSERT INTO tcomment (IDSCHOOL, idtype, CComment)'
      'VALUES (:IDSCHOOL, :idtype, :CComment)'
      'matching (IDSCHOOL,idtype)')
    GeneratorField.Field = 'SDID'
    Left = 693
    Top = 208
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDSCHOOL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'idtype'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'CComment'
        ParamType = ptUnknown
      end>
  end
  object DSTypeContrib: TDataSource
    DataSet = qTypeContrib
    Left = 496
    Top = 216
  end
  object qTypeContrib: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select * from TSTATUS where parid=11')
    GeneratorField.Field = 'TFID'
    Left = 528
    Top = 216
    object IntegerField3: TIntegerField
      FieldName = 'IDSTATUS'
      Origin = '"TSTATUS"."IDSTATUS"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IntegerField4: TIntegerField
      FieldName = 'PARID'
      Origin = '"TSTATUS"."PARID"'
      Required = True
    end
    object IBStringField2: TIBStringField
      FieldName = 'CSTATUS'
      Origin = '"TSTATUS"."CSTATUS"'
      Size = 40
    end
  end
  object DSTypePeriod: TDataSource
    DataSet = qTypePeriod
    Left = 496
    Top = 248
  end
  object qTypePeriod: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select * from TSTATUS where parid=26')
    GeneratorField.Field = 'TFID'
    Left = 528
    Top = 248
    object IntegerField5: TIntegerField
      FieldName = 'IDSTATUS'
      Origin = '"TSTATUS"."IDSTATUS"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object IntegerField6: TIntegerField
      FieldName = 'PARID'
      Origin = '"TSTATUS"."PARID"'
      Required = True
    end
    object IBStringField3: TIBStringField
      FieldName = 'CSTATUS'
      Origin = '"TSTATUS"."CSTATUS"'
      Size = 40
    end
  end
  object qMax: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'Select max(IDSCHOOL)+1 as num from tschool')
    GeneratorField.Field = 'TFID'
    Left = 664
    Top = 208
    object qMaxNUM: TLargeintField
      FieldName = 'NUM'
      ProviderFlags = []
    end
  end
  object IBADDQUALITYUSLUG: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        ' UPDATE OR INSERT INTO TQUALITYUSLUG (IDSCHOOL,MINPERIOD,D_CONTR' +
        'IB,IDTYPECONTRIB,BEGINAGE) '
      
        ' VALUES (:IDSCHOOL,:MINPERIOD,:D_CONTRIB,:IDTYPECONTRIB,:BEGINAG' +
        'E) '
      ' matching (IDSCHOOL)')
    GeneratorField.Field = 'SDID'
    Left = 629
    Top = 176
    ParamData = <
      item
        DataType = ftString
        Name = 'IDSCHOOL'
        ParamType = ptUnknown
        Value = 6
      end
      item
        DataType = ftUnknown
        Name = 'MINPERIOD'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'D_CONTRIB'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'IDTYPECONTRIB'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'BEGINAGE'
        ParamType = ptUnknown
      end>
  end
  object IBAddDOPUSLUG: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'UPDATE OR INSERT INTO TDOPUSLUG (IDSCHOOL,PANSION,LONGDAY,OFFDAY' +
        ',NIGHT,DELIVERY,SPORT,POOL,SUMMER)'
      
        'VALUES (:IDSCHOOL,:PANSION,:LONGDAY,:OFFDAY,:NIGHT,:DELIVERY,:SP' +
        'ORT,:POOL,:SUMMER)'
      'matching (IDSCHOOL)')
    GeneratorField.Field = 'SDID'
    Left = 693
    Top = 176
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'IDSCHOOL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PANSION'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'LONGDAY'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OFFDAY'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'NIGHT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'DELIVERY'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SPORT'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'POOL'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'SUMMER'
        ParamType = ptUnknown
      end>
  end
  object qFindAdress: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'Select * from (Select ts.*,tst.cstatus as cstatusType,'
      '  tq.MINPERIOD,tq.D_CONTRIB,tq.IDTYPECONTRIB,'
      
        '  tq.BEGINAGE,tv.cstatus as ctypecontrib, mp.cstatus as cminperi' +
        'od,'
      '  tcAdr.ccomment as ctcAdr,tcContInf.ccomment as ctcContInf,'
      
        '  tcReturn.ccomment as ctcReturn,tcContrib.ccomment as ctcContri' +
        'b,                                 '
      
        '  tdiscount.ccomment as ctcDiscount,tcAll.ccomment as ctcAll, '#39'0' +
        #39' as tempdel,'
      '  td.IDTYPE,td.QDETGR,td.QGR,td.QDET,td.QSEAT,td.QMAX,'
      
        '  tdop.PANSION,tdop.LONGDAY,tdop.OFFDAY,tdop.NIGHT,tdop.DELIVERY' +
        ','
      '  tdop.SPORT,tdop.POOL,tdop.SUMMER,ks.okrug,'
      '    coalesce(ts.CADRESS, ts.KLADRADRESS) as newCADRESS,'
      '    case when tstadr.cstatus is null then tg.cstatus'
      '        else tstadr.cstatus'
      '    end as newcOkrug,'
      '    ks.raion as newraion,'
      '    case when ks.okrug is null then ts.idgeo'
      '    else ks.okrug'
      '    end as newidgeo'
      
        'from tschool ts                                                 ' +
        '                                   '
      
        '  left join tdetailinfo td on td.idschool=ts.idschool           ' +
        '                                   '
      
        '  left join tdopuslug tdop on tdop.idschool=ts.idschool         ' +
        '                                   '
      
        '  left join tstatus tst on tst.idstatus=ts.idstatus             ' +
        '                                   '
      
        '  left join (Select * from tstatus where parid=2) tg on tg.idsta' +
        'tus=ts.idgeo'
      
        '  left join tqualityuslug tq on tq.idschool=ts.idschool         ' +
        '                                   '
      
        '  left join (Select * from tstatus where parid=11) tv on tv.idst' +
        'atus=tq.idtypecontrib              '
      
        '  left join (Select * from tcomment where idtype=19) tcAdr on tc' +
        'Adr.idschool=ts.idschool'
      
        '  left join (Select * from tcomment where idtype=20) tcContInf o' +
        'n tcContInf.idschool=ts.idschool'
      
        '  left join (Select * from tcomment where idtype=23) tcReturn on' +
        ' tcReturn.idschool=ts.idschool     '
      
        '  left join (Select * from tcomment where idtype=24) tcContrib o' +
        'n tcContrib.idschool=ts.idschool   '
      
        '  left join (Select * from tstatus where parid=26) mp on mp.idst' +
        'atus=tq.minperiod                  '
      
        '  left join (Select * from tcomment where idtype=33) tdiscount o' +
        'n tdiscount.idschool=ts.idschool   '
      
        '  left join (Select * from tcomment where idtype=18) tcAll on tc' +
        'All.idschool=ts.idschool'
      '  LEFT  JOIN tstatus tstadr on tstadr.idstatus=ks.okrug    )'
      '')
    GeneratorField.Field = 'TFID'
    Left = 696
    Top = 240
    object qFindAdressIDSCHOOL: TIntegerField
      FieldName = 'IDSCHOOL'
      Origin = '"TSCHOOL"."IDSCHOOL"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qFindAdressCNAMESCHOOL: TIBStringField
      FieldName = 'CNAMESCHOOL'
      Origin = '"TSCHOOL"."CNAMESCHOOL"'
      Size = 80
    end
    object qFindAdressCSTATUS: TIBStringField
      FieldName = 'CSTATUS'
      Origin = '"TSCHOOL"."CSTATUS"'
      Size = 255
    end
    object qFindAdressIDSTATUS: TIntegerField
      FieldName = 'IDSTATUS'
      Origin = '"TSCHOOL"."IDSTATUS"'
    end
    object qFindAdressIDGEO: TIntegerField
      FieldName = 'IDGEO'
      Origin = '"TSCHOOL"."IDGEO"'
    end
    object qFindAdressCGEOCODE: TIBStringField
      FieldName = 'CGEOCODE'
      Origin = '"TSCHOOL"."CGEOCODE"'
      Size = 40
    end
    object qFindAdressCADRESS: TIBStringField
      FieldName = 'CADRESS'
      Origin = '"TSCHOOL"."CADRESS"'
      Size = 255
    end
    object qFindAdressCCONTACTINFO: TIBStringField
      FieldName = 'CCONTACTINFO'
      Origin = '"TSCHOOL"."CCONTACTINFO"'
      Size = 255
    end
    object qFindAdressCINET: TIBStringField
      FieldName = 'CINET'
      Origin = '"TSCHOOL"."CINET"'
      Size = 80
    end
    object qFindAdressCTIMEWORK: TIBStringField
      FieldName = 'CTIMEWORK'
      Origin = '"TSCHOOL"."CTIMEWORK"'
      Size = 40
    end
    object qFindAdressCFOUNDER: TIBStringField
      FieldName = 'CFOUNDER'
      Origin = '"TSCHOOL"."CFOUNDER"'
      Size = 255
    end
    object qFindAdressCOWNERSHIP: TIBStringField
      FieldName = 'COWNERSHIP'
      Origin = '"TSCHOOL"."COWNERSHIP"'
      Size = 255
    end
    object qFindAdressCCHIEF: TIBStringField
      FieldName = 'CCHIEF'
      Origin = '"TSCHOOL"."CCHIEF"'
      Size = 255
    end
    object qFindAdressTLAREA: TIBBCDField
      FieldName = 'TLAREA'
      Origin = '"TSCHOOL"."TLAREA"'
      Precision = 18
      Size = 2
    end
    object qFindAdressTBAREA: TIBBCDField
      FieldName = 'TBAREA'
      Origin = '"TSCHOOL"."TBAREA"'
      Precision = 18
      Size = 2
    end
    object qFindAdressCSTATUSTYPE: TIBStringField
      FieldName = 'CSTATUSTYPE'
      Origin = '"TSTATUS"."CSTATUS"'
      Size = 40
    end
    object qFindAdressMINPERIOD: TIntegerField
      FieldName = 'MINPERIOD'
      Origin = '"TQUALITYUSLUG"."MINPERIOD"'
    end
    object qFindAdressD_CONTRIB: TIBBCDField
      FieldName = 'D_CONTRIB'
      Origin = '"TQUALITYUSLUG"."D_CONTRIB"'
      Precision = 18
      Size = 2
    end
    object qFindAdressIDTYPECONTRIB: TIntegerField
      FieldName = 'IDTYPECONTRIB'
      Origin = '"TQUALITYUSLUG"."IDTYPECONTRIB"'
    end
    object qFindAdressBEGINAGE: TIBStringField
      FieldName = 'BEGINAGE'
      Origin = '"TQUALITYUSLUG"."BEGINAGE"'
      Size = 5
    end
    object qFindAdressCTYPECONTRIB: TIBStringField
      FieldName = 'CTYPECONTRIB'
      ProviderFlags = []
      Size = 40
    end
    object qFindAdressCMINPERIOD: TIBStringField
      FieldName = 'CMINPERIOD'
      ProviderFlags = []
      Size = 40
    end
    object qFindAdressCTCADR: TIBStringField
      FieldName = 'CTCADR'
      ProviderFlags = []
      Size = 255
    end
    object qFindAdressCTCCONTINF: TIBStringField
      FieldName = 'CTCCONTINF'
      ProviderFlags = []
      Size = 255
    end
    object qFindAdressCTCRETURN: TIBStringField
      FieldName = 'CTCRETURN'
      ProviderFlags = []
      Size = 255
    end
    object qFindAdressCTCCONTRIB: TIBStringField
      FieldName = 'CTCCONTRIB'
      ProviderFlags = []
      Size = 255
    end
    object qFindAdressCTCDISCOUNT: TIBStringField
      FieldName = 'CTCDISCOUNT'
      ProviderFlags = []
      Size = 255
    end
    object qFindAdressCTCALL: TIBStringField
      FieldName = 'CTCALL'
      ProviderFlags = []
      Size = 255
    end
    object qFindAdressTEMPDEL: TIBStringField
      FieldName = 'TEMPDEL'
      ProviderFlags = []
      FixedChar = True
      Size = 1
    end
    object qFindAdressIDTYPE: TIBStringField
      FieldName = 'IDTYPE'
      Origin = '"TDETAILINFO"."IDTYPE"'
      Size = 5
    end
    object qFindAdressQDETGR: TIntegerField
      FieldName = 'QDETGR'
      Origin = '"TDETAILINFO"."QDETGR"'
    end
    object qFindAdressQGR: TIntegerField
      FieldName = 'QGR'
      Origin = '"TDETAILINFO"."QGR"'
    end
    object qFindAdressQDET: TIntegerField
      FieldName = 'QDET'
      Origin = '"TDETAILINFO"."QDET"'
    end
    object qFindAdressQSEAT: TIntegerField
      FieldName = 'QSEAT'
      Origin = '"TDETAILINFO"."QSEAT"'
    end
    object qFindAdressQMAX: TIBBCDField
      FieldName = 'QMAX'
      Origin = '"TDETAILINFO"."QMAX"'
      Precision = 18
      Size = 2
    end
    object qFindAdressPANSION: TIntegerField
      FieldName = 'PANSION'
      Origin = '"TDOPUSLUG"."PANSION"'
    end
    object qFindAdressLONGDAY: TIntegerField
      FieldName = 'LONGDAY'
      Origin = '"TDOPUSLUG"."LONGDAY"'
    end
    object qFindAdressOFFDAY: TIntegerField
      FieldName = 'OFFDAY'
      Origin = '"TDOPUSLUG"."OFFDAY"'
    end
    object qFindAdressNIGHT: TIntegerField
      FieldName = 'NIGHT'
      Origin = '"TDOPUSLUG"."NIGHT"'
    end
    object qFindAdressDELIVERY: TIntegerField
      FieldName = 'DELIVERY'
      Origin = '"TDOPUSLUG"."DELIVERY"'
    end
    object qFindAdressSPORT: TIntegerField
      FieldName = 'SPORT'
      Origin = '"TDOPUSLUG"."SPORT"'
    end
    object qFindAdressPOOL: TIntegerField
      FieldName = 'POOL'
      Origin = '"TDOPUSLUG"."POOL"'
    end
    object qFindAdressSUMMER: TIBStringField
      FieldName = 'SUMMER'
      Origin = '"TDOPUSLUG"."SUMMER"'
      Size = 5
    end
    object qFindAdressOKRUG: TIntegerField
      FieldName = 'OKRUG'
      Origin = '"KLADR_STREET_MO"."OKRUG"'
    end
    object qFindAdressNEWCADRESS: TIBStringField
      FieldName = 'NEWCADRESS'
      ProviderFlags = []
      Size = 419
    end
    object qFindAdressNEWCOKRUG: TIBStringField
      FieldName = 'NEWCOKRUG'
      ProviderFlags = []
      Size = 40
    end
    object qFindAdressNEWRAION: TIBStringField
      FieldName = 'NEWRAION'
      Origin = '"KLADR_STREET_MO"."RAION"'
      Size = 80
    end
    object qFindAdressNEWIDGEO: TIntegerField
      FieldName = 'NEWIDGEO'
      ProviderFlags = []
    end
  end
  object IdHTTP1: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 416
    Top = 105
  end
  object qDel: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'Select max(IDSCHOOL)+1 as num from tschool')
    GeneratorField.Field = 'TFID'
    Left = 664
    Top = 240
    object LargeintField1: TLargeintField
      FieldName = 'NUM'
      ProviderFlags = []
    end
  end
  object qCount: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'Select count(*) as con from tdetailinfo td'
      '    left join tschool ts on ts.idschool=td.idschool'
      
        'where td.idschool<>:idschool and td.idtype=:idtype and ts.cnames' +
        'chool=:cnameschool'
      '    and ts.cadress=:cadress')
    GeneratorField.Field = 'TFID'
    Left = 664
    Top = 272
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idschool'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'idtype'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cnameschool'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'cadress'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = qkladrgorod
    Left = 16
    Top = 16
  end
  object qkladrgorod: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'select * from kladr_mo'
      'where kid<>2')
    Left = 48
    Top = 16
    object qkladrgorodKID: TIntegerField
      FieldName = 'KID'
      Origin = '"KLADR_MO"."KID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qkladrgorodNAME: TIBStringField
      FieldName = 'NAME'
      Origin = '"KLADR_MO"."NAME"'
      Size = 80
    end
  end
  object DataSource2: TDataSource
    DataSet = qkladrstreet
    Left = 88
    Top = 16
  end
  object qkladrstreet: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    DataSource = DataSource1
    SQL.Strings = (
      'select * from kladr_street_mo ks'
      'where ks.kid = :kid')
    Left = 120
    Top = 16
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'kid'
        ParamType = ptUnknown
      end>
    object qkladrstreetKSID: TIntegerField
      FieldName = 'KSID'
      Origin = '"KLADR_STREET_MO"."KSID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qkladrstreetKID: TIntegerField
      FieldName = 'KID'
      Origin = '"KLADR_STREET_MO"."KID"'
    end
    object qkladrstreetNAME: TIBStringField
      FieldName = 'NAME'
      Origin = '"KLADR_STREET_MO"."NAME"'
      Size = 80
    end
  end
end
